home *** CD-ROM | disk | FTP | other *** search
/ PCMania 39 / PCMania CD39_2.iso / pcmania / juego39 / if_then.asm < prev    next >
Assembly Source File  |  1993-08-20  |  2KB  |  73 lines
  1.  
  2. $IF             MACRO   OP1,OPER,OP2
  3.                 CMP     OP1,OP2
  4.                 J&OPER  $ + 5
  5.                 $SALVAR_J
  6.                 NOP
  7.                 NOP
  8.                 NOP
  9.                 ENDM
  10.  
  11. ;───────────────────────────────────────────────────────────────────────────────
  12.  
  13. $ELSE           MACRO
  14.                 LOCAL   $BLOQUE2,$CASOCON
  15. $CASOCON:
  16.                 $RECUPERAR_J
  17.                 ORG     $SIMBOLO
  18.                 JMP     $BLOQUE2
  19.                 ORG     $CASOCON
  20.                 $SALVAR_J
  21.                 NOP
  22.                 NOP
  23.                 NOP
  24. $BLOQUE2:
  25.                 ENDM
  26.  
  27. ;───────────────────────────────────────────────────────────────────────────────
  28.  
  29. $END_IF         MACRO
  30.                 LOCAL   $FIN
  31. $FIN:
  32.                 $RECUPERAR_J
  33.                 ORG     $SIMBOLO
  34.                 JMP     $FIN
  35.                 ORG     $FIN
  36.                 ENDM
  37.  
  38. ;───────────────────────────────────────────────────────────────────────────────
  39. ;───────────────────────────────────────────────────────────────────────────────
  40.  
  41. $SALVAR_J       MACRO
  42.                 IFNDEF  $J
  43.                   $J =  0
  44.                 ENDIF
  45. $J              =       $J + 1
  46.                 $SALVAR_J_1 %$J
  47.                 ENDM
  48.  
  49. ;───────────────────────────────────────────────────────────────────────────────
  50.  
  51. $RECUPERAR_J    MACRO
  52.                 $RECUPERAR_J_1 %$J
  53. $J              =       $J - 1
  54.                 ENDM
  55.  
  56. ;───────────────────────────────────────────────────────────────────────────────
  57.  
  58. $SALVAR_J_1     MACRO   $J
  59. $SIM_J&$J       =       THIS NEAR
  60.                 ENDM
  61.  
  62. ;───────────────────────────────────────────────────────────────────────────────
  63.  
  64. $RECUPERAR_J_1  MACRO   $J
  65.                 IFNDEF  $SIM_J&$J
  66.                   .LALL ; *** error de estructura ***
  67.                   .SALL
  68.                   %OUT    *** error de estructura ***
  69.                 ENDIF
  70. $SIMBOLO        =       $SIM_J&$J
  71.                 ENDM
  72.  
  73.